home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Math Visin v2.1 disk 1.adf / Arexx.WB / Simple / Powers < prev    next >
Text File  |  1992-02-12  |  551b  |  31 lines
  1. /* Powers    demonstrate the effect of raising a number to higher powers */
  2. /*        14-Nov-89 dh */
  3.  
  4. ADDRESS "MathVision"
  5. OPTIONS RESULTS
  6.  
  7. StopSign F    /* no Control-C Yet */
  8.  
  9. NewProject
  10. Comment1 "This demonstrates the effect of raising x to increasingly large powers"
  11. Comment2 "starting at 2 and going through 30"
  12. Comment3 ""
  13.  
  14. Overplot T
  15. EraseScreen
  16.  
  17. xmin "-1.15"
  18. xmax 1.15
  19. ymin "-1.3"
  20. ymax 1.3
  21.  
  22. PlotScreenToFront
  23. DO power = -29 to 29 by 2
  24.   F0 "x^"power
  25.   SimplePen (power+31)/2
  26.   Get StopSign
  27.   IF RESULT = "T" THEN BREAK
  28.   PlotSimple
  29. END
  30. EditScreenToFront
  31.